home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / CHIPCD_02_2002.iso / Dom i biuro / EBookReader 2.2 / eBookReaderInstall.exe / data1.cab / Program_EXEs / ReaderApp.exe / PSPROCSET / 17 < prev    next >
Encoding:
Text File  |  2001-11-27  |  8.5 KB  |  476 lines
  1. %%BeginResource: procset pdflev15044
  2. %%Version: 5.0 10
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, Level 1, with emulated separations (TN 5044)
  6. /_ColorSep5044? true dd
  7. /docinitialize {
  8. PDF begin
  9. /_defaulthalftone
  10. /currenthalftone where
  11. { pop currenthalftone }
  12. { 4 dict dup begin
  13. currentscreen
  14. /SpotFunction exch def
  15. /Angle exch def
  16. /Frequency exch def
  17. /HalftoneType 1 def
  18. end }
  19. ifelse
  20. dd
  21. /currentcolortransfer where
  22. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  23. { /_defaultcolortransfer [currenttransfer dup dup dup] dd }
  24. ifelse
  25. end
  26. } bd
  27. /initialize {
  28. sep_ops begin
  29. 50 dict begin
  30. _defaulthalftone sethalftone
  31. } bd
  32. /terminate {
  33. end end
  34. } bd
  35. /currentcolortransfer where
  36. { pop }
  37. {
  38. /setcolortransfer
  39. {
  40. settransfer pop pop pop
  41. } bd
  42. } ifelse
  43. /pl {
  44. transform
  45. 0.25 sub round 0.25 add exch
  46. 0.25 sub round 0.25 add exch
  47. itransform
  48. } bd
  49. /m { _sa? { pl } if moveto } bd
  50. /l { _sa? { pl } if lineto } bd
  51. /c
  52. {
  53. _sa? {3 {pl 6 2 roll} repeat} if
  54. curveto
  55. } bd
  56. /ri/pop ld
  57. /setSA { /_sa? xdd } bd
  58. /re
  59. {
  60. _sa?
  61. {
  62. 8 dict begin
  63. /:h exch def
  64. /:w exch def
  65. /:y exch def
  66. /:x exch def
  67. :x :y pl
  68. /:ymin exch def /:xmin exch def
  69. :x :w add :y :h add pl
  70. /:ymax exch def /:xmax exch def
  71. :xmin :ymin moveto
  72. :xmax :ymin lineto
  73. :xmax :ymax lineto
  74. :xmin :ymax lineto
  75. closepath
  76. end
  77. }
  78. {
  79. 4 2 roll moveto
  80. 1 index 0 rlineto
  81. 0 exch rlineto
  82. neg 0 rlineto
  83. closepath
  84. } ifelse
  85. } bd
  86. /AlmostFull?
  87. { dup maxlength exch length sub 2 le
  88. } bd
  89. /Expand
  90. { 1 index maxlength mul cvi dict
  91. dup begin exch { def } forall end
  92. } bd
  93. /xput
  94. { 3 2 roll
  95. dup 3 index known not
  96. { dup AlmostFull? { 1.5 Expand } if
  97. } if
  98. dup 4 2 roll put
  99. } bd
  100. /defineRes
  101. { _categories 1 index known not
  102. { /_categories _categories 2 index 10 dict xput store
  103. } if
  104. _categories exch 2 copy get 5 -1 roll 4 index xput put
  105. } bd
  106. /findRes {
  107. _categories exch get exch get
  108. } bd
  109. /L1setcolor {
  110. aload length
  111. dup 0 eq
  112. { pop .5 setgray }
  113. { dup 1 eq
  114. { pop setgray }
  115. { 3 eq
  116. { setrgbcolor }
  117. { setcmykcolor }
  118. ifelse }
  119. ifelse }
  120. ifelse
  121. } bind dd
  122. /concattransferfuncs {
  123. [ 3 1 roll /exec load exch /exec load ] cvx
  124. } bd
  125. /concatandsettransfer {
  126. /_defaulttransfer load concattransferfuncs settransfer
  127. } bd
  128. /concatandsetcolortransfer {
  129. colorplate 0 eq
  130. {
  131. _defaultcolortransfer aload pop
  132. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  133. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  134. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  135. concattransferfuncs
  136. setcolortransfer
  137. } if
  138. colorplate 1 ge colorplate 4 le and
  139. {
  140. 4 colorplate sub index 4 { exch pop } repeat
  141. concatandsettransfer
  142. } if
  143. colorplate 5 ge
  144. {
  145. 0 index 4 { exch pop } repeat
  146. concatandsettransfer
  147. } if
  148. } bd
  149. /tn5044sethalftone
  150. {
  151. begin
  152. HalftoneType 5 eq
  153. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  154. colorplate get
  155. here not {
  156. /Default here not { currentdict } if
  157. } if
  158. }
  159. { currentdict }
  160. ifelse
  161. end
  162. begin
  163. /TransferFunction here
  164. {
  165. concatandsettransfer
  166. currentdict dup length dict
  167. begin
  168. {
  169. 1 index /TransferFunction ne { def } { pop pop } ifelse
  170. } forall
  171. currentdict
  172. end
  173. }
  174. {
  175. currentdict
  176. } ifelse
  177. end
  178. sethalftone
  179. } bd
  180. /paintimage
  181. {
  182. colorplate 0 eq
  183. {
  184. { {currentfile cyanstr readstring pop}
  185. {currentfile magentastr readstring pop}
  186. {currentfile yellowstr readstring pop}
  187. {currentfile blackstr readstring pop
  188. currentfile graystr readstring pop pop}
  189. }
  190. { {currentfile cyanstr readhexstring pop}
  191. {currentfile magentastr readhexstring pop}
  192. {currentfile yellowstr readhexstring pop}
  193. {currentfile blackstr readhexstring pop
  194. currentfile graystr readhexstring pop pop}
  195. } ifelse
  196. true 4 colorimage
  197. }
  198. {
  199. 3 dict begin
  200. /binaryOK exch def
  201. [
  202. 1 1 5 {
  203. dup
  204. /currentfile cvx
  205. [ /cyanstr /magentastr /yellowstr /blackstr /graystr ]
  206. 3 -1 roll 1 sub get cvx
  207. binaryOK { /readstring } { /readhexstring } ifelse cvx
  208. /pop cvx
  209. 5 -1 roll
  210. colorplate dup 5 gt { pop 5 } if
  211. eq not { /pop cvx } if
  212. } for
  213. ] cvx bind
  214. end
  215. [
  216. colorplate 6 eq {
  217. /pop cvx
  218. negativecolorplate { 0 } { 1 } ifelse
  219. } if
  220. colorplate 4 le
  221. {
  222. 1 /exch cvx /sub cvx
  223. } if
  224. colorplate 6 ne
  225. {
  226. systemdict /currenttransfer get exec
  227. aload pop
  228. } if
  229. ] cvx
  230. gsave
  231. systemdict /settransfer get exec
  232. systemdict /image get exec
  233. grestore
  234. } ifelse
  235. } bd
  236. /getrampcolor {
  237. /indx exch def
  238. 0 1 NumComp 1 sub {
  239. dup
  240. Samples exch get
  241. dup type /stringtype eq { indx get } if
  242. exch
  243. Scaling exch get aload pop
  244. 3 1 roll
  245. mul add
  246. } for
  247. setcolor
  248. } bd
  249. /GenStrips {
  250. 40 dict begin
  251. /background exch def
  252. /ext1 exch def
  253. /ext0 exch def
  254. /BBox exch def
  255. /y2 exch def
  256. /x2 exch def
  257. /y1 exch def
  258. /x1 exch def
  259. /rampdict exch def
  260. gsave
  261. BBox length 0 gt {
  262. BBox 0 get BBox 1 get
  263. BBox 2 get BBox 0 get sub
  264. BBox 3 get BBox 1 get sub
  265. rectclip
  266. } if
  267. x1 x2 eq
  268. {
  269. y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
  270. }
  271. {
  272. /slope y2 y1 sub x2 x1 sub div def
  273. /theta slope 1 atan def
  274. x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
  275. x2 x1 lt y2 y1 le and { /theta theta 180 add def} if
  276. }
  277. ifelse
  278. gsave
  279. clippath
  280. x1 y1 translate
  281. theta rotate
  282. pathbbox
  283. /yMax exch def
  284. /xMax exch def
  285. /yMin exch def
  286. /xMin exch def
  287. grestore
  288. xMax xMin eq yMax yMin eq or
  289. {
  290. grestore
  291. end
  292. }
  293. {
  294. rampdict begin
  295. 20 dict begin
  296. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  297. gsave
  298. x1 y1 translate
  299. theta rotate
  300. /xStart 0 def
  301. /xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
  302. /ySpan yMax yMin sub def
  303. /numsteps NumSamples def
  304. /rampIndxInc 1 def
  305. /subsampling false def
  306. xStart 0 transform
  307. xEnd 0 transform
  308. 3 -1 roll
  309. sub dup mul
  310. 3 1 roll
  311. sub dup mul
  312. add 0.5 exp 72 div
  313. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  314. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  315. 1 index 1 index lt { exch } if pop
  316. mul
  317. /numpix exch def
  318. numpix 0 ne
  319. {
  320. NumSamples numpix div 0.5 gt
  321. {
  322. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  323. /rampIndxInc NumSamples 1 sub numsteps div def
  324. /subsampling true def
  325. } if
  326. } if
  327. ext0 {
  328. 0 getrampcolor
  329. x1 x2 lt
  330. { xMin yMin xStart xMin sub ySpan rectfill}
  331. { xStart yMin xMax xStart sub ySpan rectfill}
  332. ifelse
  333. } if
  334. /xInc xEnd xStart sub numsteps div def
  335. /x xStart def
  336. 0
  337. numsteps
  338. {
  339. dup
  340. subsampling { round cvi } if
  341. getrampcolor
  342. x yMin xInc ySpan rectfill
  343. /x x xInc add def
  344. rampIndxInc add
  345. }
  346. repeat
  347. pop
  348. ext1 {
  349. xStart xEnd lt
  350. { xEnd yMin xMax xEnd sub ySpan rectfill}
  351. { xMin yMin xEnd xMin sub ySpan rectfill}
  352. ifelse
  353. } if
  354. grestore
  355. grestore
  356. end
  357. end
  358. end
  359. } ifelse
  360. } bd
  361. /RadialShade {
  362. 40 dict begin
  363. /background exch def
  364. /ext1 exch def
  365. /ext0 exch def
  366. /BBox exch def
  367. /r2 exch def
  368. /c2y exch def
  369. /c2x exch def
  370. /r1 exch def
  371. /c1y exch def
  372. /c1x exch def
  373. /rampdict exch def
  374. gsave
  375. BBox length 0 gt {
  376. BBox 0 get BBox 1 get
  377. BBox 2 get BBox 0 get sub
  378. BBox 3 get BBox 1 get sub
  379. rectclip
  380. } if
  381. gsave
  382. clippath
  383. pathbbox
  384. /BByMax exch def
  385. /BBxMax exch def
  386. /BByMin exch def
  387. /BBxMin exch def
  388. grestore
  389. BBxMax BBxMin eq BByMax BByMin eq or
  390. {
  391. grestore
  392. end
  393. }
  394. {
  395. rampdict begin
  396. 20 dict begin
  397. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  398. /areaOfConcern
  399. BBxMin BByMin BBxMax BByMax
  400. BBxMin BByMin
  401. BBxMax BBxMin sub 0
  402. 0 BByMax BByMin sub
  403. BBxMin BBxMax sub 0
  404. 12 packedarray
  405. < 0B 00 01 04 04 04 0A>
  406. 2 packedarray
  407. def
  408. c1x c2x sub dup mul
  409. c1y c2y sub dup mul
  410. add 0.5 exp
  411. r1 add
  412. r2 sub
  413. abs
  414. 0 dtransform
  415. dup mul exch dup mul add 0.5 exp 72 div
  416. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  417. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  418. 1 index 1 index lt { exch } if pop
  419. /hires exch def
  420. hires mul
  421. /numpix exch def
  422. /numsteps NumSamples def
  423. /rampIndxInc 1 def
  424. /subsampling false def
  425. numpix 0 ne
  426. {
  427. NumSamples numpix div 0.5 gt
  428. {
  429. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  430. /rampIndxInc NumSamples 1 sub numsteps div def
  431. /subsampling true def
  432. } if
  433. } if
  434. /xInc c2x c1x sub numsteps div def
  435. /yInc c2y c1y sub numsteps div def
  436. /rInc r2 r1 sub numsteps div def
  437. /cx c1x def
  438. /cy c1y def
  439. /radius r1 def
  440. newpath
  441. xInc 0 eq yInc 0 eq rInc 0 eq and and
  442. {
  443. 0 getrampcolor
  444. cx cy radius 0 360 arc
  445. stroke
  446. NumSamples 1 sub getrampcolor
  447. cx cy radius 72 hires div add 0 360 arc
  448. 0 setlinewidth
  449. stroke
  450. }
  451. {
  452. 0
  453. numsteps
  454. {
  455. dup
  456. subsampling { round cvi } if
  457. getrampcolor
  458. cx cy radius 0 360 arc
  459. /cx cx xInc add def
  460. /cy cy yInc add def
  461. /radius radius rInc add def
  462. cx cy radius 360 0 arcn
  463. eofill
  464. rampIndxInc add
  465. }
  466. repeat
  467. pop
  468. } ifelse
  469. grestore
  470. end
  471. end
  472. end
  473. } ifelse
  474. } bd
  475. %%EndResource
  476.